home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 May
/
1985-05.d64
/
bubble sort_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
869b
|
27 lines
100 m=8192:gosub500:goto150
110 z=m+int(y/8)*320+int(x/8)*8+(yand7)
120 pokez,peek(z)ort%(xand7):return
130 z=m+int(y/8)*320+int(x/8)*8+(yand7)
140 pokez,peek(z)andnott%(xand7):return
150 fori=0to7:t%(7-i)=2^i:next
160 sys49152:poke53272,peek(53272)or8:poke53265,peek(53265)or32
170 s=99:diml%(s)
180 fort=1tos:l%(t)=rnd(0)*s*3+12:x=l%(t):y=2*t:gosub110:next:ti$="000000"
190 fori=s-1to1step-1:fort=1toi
200 ifl%(t)>l%(t+1)thengosub250:te=l%(t):l%(t)=l%(t+1):l%(t+1)=te
210 next:next:t$=ti$:poke198,0
220 geta$:ifa$=""then220
230 poke53265,peek(53265)and223:print"[147]":poke53272,21
240 prints"items sorted in "mid$(t$,3,2)":"right$(t$,2)".":end
250 y=2*t:x=l%(t):gosub130:y=2*(t+1):x=l%(t+1):gosub130
260 y=2*t:x=l%(t+1):gosub110:y=2*(t+1):x=l%(t):gosub110:return
500 x=0:fori=49152to49190:reada:x=x+a:pokei,a:next
510 ifx<>6678thenprint"error in data statements.":stop
520 return
530 data 169,32,133,252,162,32,169
540 data 0,168,145,251,200,208,251
550 data 230,252,202,208,246,169,4
560 data 133,254,170,160,0,169,16
570 data 145,253,200,208,251,230,254
580 data 202,208,246,96